home *** CD-ROM | disk | FTP | other *** search
/ Disney Interactive Software Sampler 1998 to 1999 / DISNEY99.ISO / Media / SSaverY.dxr / 00001_Movie Script.ls next >
Encoding:
Text File  |  1998-11-16  |  1.5 KB  |  65 lines
  1. global gLastVisFrame, gLastVisMovie, myCD, gSavePath
  2.  
  3. on startMovie
  4.   set myCD to cHECKdRIVE("E1.txt")
  5. end
  6.  
  7. on stopMovie
  8.   set the keyDownScript to EMPTY
  9. end
  10.  
  11. on FForward
  12.   if the key = " " then
  13.     go(marker(1))
  14.     set the keyDownScript to EMPTY
  15.   end if
  16. end
  17.  
  18. on cHECKdRIVE weirdfile
  19.   repeat with i = 66 to 90
  20.     set drive to numToChar(i)
  21.     set thisPath to string(drive & ":\licence\" & weirdfile)
  22.     set myFile to new(xtra("fileIO"))
  23.     openFile(myFile, thisPath, 1)
  24.     if status(myFile) = 0 then
  25.       set myFile to 0
  26.       return drive & ":"
  27.       exit
  28.     end if
  29.   end repeat
  30.   set myFile to 0
  31. end
  32.  
  33. on resetSStest
  34.   if objectp(myFile) then
  35.     set myFile to 0
  36.   end if
  37.   set myFile to new(xtra("fileIO"))
  38.   if the machineType = 256 then
  39.     setFilterMask(myFile, "All files, *.*, Text files, *.txt")
  40.   else
  41.     setFilterMask(myFile, "TEXT")
  42.   end if
  43.   set fileName to "Visited.txt"
  44.   if not voidp(fileName) then
  45.     openFile(myFile, gSavePath & fileName, 0)
  46.     set theFile to readFile(myFile)
  47.     setPosition(myFile, 0)
  48.     writeString(myFile, field "defMyField")
  49.   else
  50.     nothing()
  51.   end if
  52.   closeFile(myFile)
  53.   set myFile to 0
  54. end
  55.  
  56. on LaunchSSS
  57.   set ParameterList to "Install.exe,MenuBack," & myCD & "\Media\SSaver," & myCD & "\MEDIA,4000,20000"
  58.   open(ParameterList, myCD & "\MEDIA\ZLNCH32.EXE")
  59. end
  60.  
  61. on LaunchSSM
  62.   set ParameterList to "Install.exe,MenuBack," & myCD & "\Media\SSaver\NoSound," & myCD & "\MEDIA,4000,20000"
  63.   open(ParameterList, myCD & "\MEDIA\ZLNCH32.EXE")
  64. end
  65.